\(\int \frac {(a+b \arctan (c x^2))^2}{x^2} \, dx\) [83]

Optimal result

Integrand size = 16, antiderivative size = 1164 \[ \int \frac {\left (a+b \arctan \left (c x^2\right )\right )^2}{x^2} \, dx=\sqrt [4]{-1} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right )^2-2 \sqrt [4]{-1} a b \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )-(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )^2-2 (-1)^{3/4} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{1-\sqrt [4]{-1} \sqrt {c} x}\right )+2 (-1)^{3/4} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{1+\sqrt [4]{-1} \sqrt {c} x}\right )-(-1)^{3/4} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {\sqrt {2} \left (\sqrt [4]{-1}+\sqrt {c} x\right )}{1+\sqrt [4]{-1} \sqrt {c} x}\right )+2 (-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{1-(-1)^{3/4} \sqrt {c} x}\right )-2 (-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{1+(-1)^{3/4} \sqrt {c} x}\right )+(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (-\frac {\sqrt {2} \left ((-1)^{3/4}+\sqrt {c} x\right )}{1+(-1)^{3/4} \sqrt {c} x}\right )+(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {(1+i) \left (1+\sqrt [4]{-1} \sqrt {c} x\right )}{1+(-1)^{3/4} \sqrt {c} x}\right )-(-1)^{3/4} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {(1-i) \left (1+(-1)^{3/4} \sqrt {c} x\right )}{1+\sqrt [4]{-1} \sqrt {c} x}\right )-(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1-i c x^2\right )-\sqrt [4]{-1} b \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \left (2 a+i b \log \left (1-i c x^2\right )\right )-\frac {\left (2 a+i b \log \left (1-i c x^2\right )\right )^2}{4 x}+\frac {i a b \log \left (1+i c x^2\right )}{x}+(-1)^{3/4} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1+i c x^2\right )+(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1+i c x^2\right )-\frac {b^2 \log \left (1-i c x^2\right ) \log \left (1+i c x^2\right )}{2 x}+\frac {b^2 \log ^2\left (1+i c x^2\right )}{4 x}+\sqrt [4]{-1} b^2 \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {2}{1-\sqrt [4]{-1} \sqrt {c} x}\right )+\sqrt [4]{-1} b^2 \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {2}{1+\sqrt [4]{-1} \sqrt {c} x}\right )-\frac {1}{2} \sqrt [4]{-1} b^2 \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {\sqrt {2} \left (\sqrt [4]{-1}+\sqrt {c} x\right )}{1+\sqrt [4]{-1} \sqrt {c} x}\right )+(-1)^{3/4} b^2 \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {2}{1-(-1)^{3/4} \sqrt {c} x}\right )+(-1)^{3/4} b^2 \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {2}{1+(-1)^{3/4} \sqrt {c} x}\right )-\frac {1}{2} (-1)^{3/4} b^2 \sqrt {c} \operatorname {PolyLog}\left (2,1+\frac {\sqrt {2} \left ((-1)^{3/4}+\sqrt {c} x\right )}{1+(-1)^{3/4} \sqrt {c} x}\right )-\frac {1}{2} (-1)^{3/4} b^2 \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {(1+i) \left (1+\sqrt [4]{-1} \sqrt {c} x\right )}{1+(-1)^{3/4} \sqrt {c} x}\right )-\frac {1}{2} \sqrt [4]{-1} b^2 \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {(1-i) \left (1+(-1)^{3/4} \sqrt {c} x\right )}{1+\sqrt [4]{-1} \sqrt {c} x}\right ) \]

[Out]

-1/4*(2*a+I*b*ln(1-I*c*x^2))^2/x-1/2*b^2*ln(1-I*c*x^2)*ln(1+I*c*x^2)/x-1/2*(-1)^(1/4)*b^2*polylog(2,1-2^(1/2)*
((-1)^(1/4)+x*c^(1/2))/(1+(-1)^(1/4)*x*c^(1/2)))*c^(1/2)-1/2*(-1)^(3/4)*b^2*polylog(2,1+2^(1/2)*((-1)^(3/4)+x*
c^(1/2))/(1+(-1)^(3/4)*x*c^(1/2)))*c^(1/2)-1/2*(-1)^(3/4)*b^2*polylog(2,1-(1+I)*(1+(-1)^(1/4)*x*c^(1/2))/(1+(-
1)^(3/4)*x*c^(1/2)))*c^(1/2)-1/2*(-1)^(1/4)*b^2*polylog(2,1+(-1+I)*(1+(-1)^(3/4)*x*c^(1/2))/(1+(-1)^(1/4)*x*c^
(1/2)))*c^(1/2)-2*(-1)^(3/4)*b^2*arctanh((-1)^(3/4)*x*c^(1/2))*ln(2/(1+(-1)^(3/4)*x*c^(1/2)))*c^(1/2)-2*(-1)^(
1/4)*a*b*arctanh((-1)^(3/4)*x*c^(1/2))*c^(1/2)-2*(-1)^(3/4)*b^2*arctan((-1)^(3/4)*x*c^(1/2))*ln(2/(1-(-1)^(1/4
)*x*c^(1/2)))*c^(1/2)+2*(-1)^(3/4)*b^2*arctan((-1)^(3/4)*x*c^(1/2))*ln(2/(1+(-1)^(1/4)*x*c^(1/2)))*c^(1/2)+2*(
-1)^(3/4)*b^2*arctanh((-1)^(3/4)*x*c^(1/2))*ln(2/(1-(-1)^(3/4)*x*c^(1/2)))*c^(1/2)+I*a*b*ln(1+I*c*x^2)/x-(-1)^
(3/4)*b^2*arctanh((-1)^(3/4)*x*c^(1/2))*ln(1-I*c*x^2)*c^(1/2)-(-1)^(1/4)*b*arctan((-1)^(3/4)*x*c^(1/2))*(2*a+I
*b*ln(1-I*c*x^2))*c^(1/2)+(-1)^(3/4)*b^2*arctan((-1)^(3/4)*x*c^(1/2))*ln(1+I*c*x^2)*c^(1/2)+(-1)^(3/4)*b^2*arc
tanh((-1)^(3/4)*x*c^(1/2))*ln(1+I*c*x^2)*c^(1/2)-(-1)^(3/4)*b^2*arctan((-1)^(3/4)*x*c^(1/2))*ln(2^(1/2)*((-1)^
(1/4)+x*c^(1/2))/(1+(-1)^(1/4)*x*c^(1/2)))*c^(1/2)+(-1)^(3/4)*b^2*arctanh((-1)^(3/4)*x*c^(1/2))*ln(-2^(1/2)*((
-1)^(3/4)+x*c^(1/2))/(1+(-1)^(3/4)*x*c^(1/2)))*c^(1/2)+(-1)^(3/4)*b^2*arctanh((-1)^(3/4)*x*c^(1/2))*ln((1+I)*(
1+(-1)^(1/4)*x*c^(1/2))/(1+(-1)^(3/4)*x*c^(1/2)))*c^(1/2)-(-1)^(3/4)*b^2*arctan((-1)^(3/4)*x*c^(1/2))*ln((1-I)
*(1+(-1)^(3/4)*x*c^(1/2))/(1+(-1)^(1/4)*x*c^(1/2)))*c^(1/2)+(-1)^(1/4)*b^2*polylog(2,1-2/(1-(-1)^(1/4)*x*c^(1/
2)))*c^(1/2)+(-1)^(1/4)*b^2*polylog(2,1-2/(1+(-1)^(1/4)*x*c^(1/2)))*c^(1/2)+(-1)^(3/4)*b^2*polylog(2,1-2/(1-(-
1)^(3/4)*x*c^(1/2)))*c^(1/2)+(-1)^(3/4)*b^2*polylog(2,1-2/(1+(-1)^(3/4)*x*c^(1/2)))*c^(1/2)+(-1)^(1/4)*b^2*arc
tan((-1)^(3/4)*x*c^(1/2))^2*c^(1/2)-(-1)^(3/4)*b^2*arctanh((-1)^(3/4)*x*c^(1/2))^2*c^(1/2)+1/4*b^2*ln(1+I*c*x^
2)^2/x

Rubi [A] (verified)

Time = 1.20 (sec) , antiderivative size = 1164, normalized size of antiderivative = 1.00, number of steps used = 47, number of rules used = 23, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 1.438, Rules used = {4950, 2507, 209, 2520, 12, 5040, 4964, 2449, 2352, 2505, 6874, 212, 30, 2637, 211, 5048, 4966, 2497, 214, 6139, 6057, 6131, 6055} \[ \int \frac {\left (a+b \arctan \left (c x^2\right )\right )^2}{x^2} \, dx=\sqrt [4]{-1} \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right )^2 b^2-(-1)^{3/4} \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )^2 b^2+\frac {\log ^2\left (i c x^2+1\right ) b^2}{4 x}-2 (-1)^{3/4} \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{1-\sqrt [4]{-1} \sqrt {c} x}\right ) b^2+2 (-1)^{3/4} \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{\sqrt [4]{-1} \sqrt {c} x+1}\right ) b^2-(-1)^{3/4} \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {\sqrt {2} \left (\sqrt {c} x+\sqrt [4]{-1}\right )}{\sqrt [4]{-1} \sqrt {c} x+1}\right ) b^2+2 (-1)^{3/4} \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{1-(-1)^{3/4} \sqrt {c} x}\right ) b^2-2 (-1)^{3/4} \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{(-1)^{3/4} \sqrt {c} x+1}\right ) b^2+(-1)^{3/4} \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (-\frac {\sqrt {2} \left (\sqrt {c} x+(-1)^{3/4}\right )}{(-1)^{3/4} \sqrt {c} x+1}\right ) b^2+(-1)^{3/4} \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {(1+i) \left (\sqrt [4]{-1} \sqrt {c} x+1\right )}{(-1)^{3/4} \sqrt {c} x+1}\right ) b^2-(-1)^{3/4} \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {(1-i) \left ((-1)^{3/4} \sqrt {c} x+1\right )}{\sqrt [4]{-1} \sqrt {c} x+1}\right ) b^2-(-1)^{3/4} \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1-i c x^2\right ) b^2+(-1)^{3/4} \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (i c x^2+1\right ) b^2+(-1)^{3/4} \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (i c x^2+1\right ) b^2-\frac {\log \left (1-i c x^2\right ) \log \left (i c x^2+1\right ) b^2}{2 x}+\sqrt [4]{-1} \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {2}{1-\sqrt [4]{-1} \sqrt {c} x}\right ) b^2+\sqrt [4]{-1} \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {2}{\sqrt [4]{-1} \sqrt {c} x+1}\right ) b^2-\frac {1}{2} \sqrt [4]{-1} \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {\sqrt {2} \left (\sqrt {c} x+\sqrt [4]{-1}\right )}{\sqrt [4]{-1} \sqrt {c} x+1}\right ) b^2+(-1)^{3/4} \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {2}{1-(-1)^{3/4} \sqrt {c} x}\right ) b^2+(-1)^{3/4} \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {2}{(-1)^{3/4} \sqrt {c} x+1}\right ) b^2-\frac {1}{2} (-1)^{3/4} \sqrt {c} \operatorname {PolyLog}\left (2,\frac {\sqrt {2} \left (\sqrt {c} x+(-1)^{3/4}\right )}{(-1)^{3/4} \sqrt {c} x+1}+1\right ) b^2-\frac {1}{2} (-1)^{3/4} \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {(1+i) \left (\sqrt [4]{-1} \sqrt {c} x+1\right )}{(-1)^{3/4} \sqrt {c} x+1}\right ) b^2-\frac {1}{2} \sqrt [4]{-1} \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {(1-i) \left ((-1)^{3/4} \sqrt {c} x+1\right )}{\sqrt [4]{-1} \sqrt {c} x+1}\right ) b^2-2 \sqrt [4]{-1} a \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) b-\sqrt [4]{-1} \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \left (2 a+i b \log \left (1-i c x^2\right )\right ) b+\frac {i a \log \left (i c x^2+1\right ) b}{x}-\frac {\left (2 a+i b \log \left (1-i c x^2\right )\right )^2}{4 x} \]

[In]

Int[(a + b*ArcTan[c*x^2])^2/x^2,x]

[Out]

(-1)^(1/4)*b^2*Sqrt[c]*ArcTan[(-1)^(3/4)*Sqrt[c]*x]^2 - 2*(-1)^(1/4)*a*b*Sqrt[c]*ArcTanh[(-1)^(3/4)*Sqrt[c]*x]
- (-1)^(3/4)*b^2*Sqrt[c]*ArcTanh[(-1)^(3/4)*Sqrt[c]*x]^2 - 2*(-1)^(3/4)*b^2*Sqrt[c]*ArcTan[(-1)^(3/4)*Sqrt[c]
*x]*Log[2/(1 - (-1)^(1/4)*Sqrt[c]*x)] + 2*(-1)^(3/4)*b^2*Sqrt[c]*ArcTan[(-1)^(3/4)*Sqrt[c]*x]*Log[2/(1 + (-1)^
(1/4)*Sqrt[c]*x)] - (-1)^(3/4)*b^2*Sqrt[c]*ArcTan[(-1)^(3/4)*Sqrt[c]*x]*Log[(Sqrt[2]*((-1)^(1/4) + Sqrt[c]*x))
/(1 + (-1)^(1/4)*Sqrt[c]*x)] + 2*(-1)^(3/4)*b^2*Sqrt[c]*ArcTanh[(-1)^(3/4)*Sqrt[c]*x]*Log[2/(1 - (-1)^(3/4)*Sq
rt[c]*x)] - 2*(-1)^(3/4)*b^2*Sqrt[c]*ArcTanh[(-1)^(3/4)*Sqrt[c]*x]*Log[2/(1 + (-1)^(3/4)*Sqrt[c]*x)] + (-1)^(3
/4)*b^2*Sqrt[c]*ArcTanh[(-1)^(3/4)*Sqrt[c]*x]*Log[-((Sqrt[2]*((-1)^(3/4) + Sqrt[c]*x))/(1 + (-1)^(3/4)*Sqrt[c]
*x))] + (-1)^(3/4)*b^2*Sqrt[c]*ArcTanh[(-1)^(3/4)*Sqrt[c]*x]*Log[((1 + I)*(1 + (-1)^(1/4)*Sqrt[c]*x))/(1 + (-1
)^(3/4)*Sqrt[c]*x)] - (-1)^(3/4)*b^2*Sqrt[c]*ArcTan[(-1)^(3/4)*Sqrt[c]*x]*Log[((1 - I)*(1 + (-1)^(3/4)*Sqrt[c]
*x))/(1 + (-1)^(1/4)*Sqrt[c]*x)] - (-1)^(3/4)*b^2*Sqrt[c]*ArcTanh[(-1)^(3/4)*Sqrt[c]*x]*Log[1 - I*c*x^2] - (-1
)^(1/4)*b*Sqrt[c]*ArcTan[(-1)^(3/4)*Sqrt[c]*x]*(2*a + I*b*Log[1 - I*c*x^2]) - (2*a + I*b*Log[1 - I*c*x^2])^2/(
4*x) + (I*a*b*Log[1 + I*c*x^2])/x + (-1)^(3/4)*b^2*Sqrt[c]*ArcTan[(-1)^(3/4)*Sqrt[c]*x]*Log[1 + I*c*x^2] + (-1
)^(3/4)*b^2*Sqrt[c]*ArcTanh[(-1)^(3/4)*Sqrt[c]*x]*Log[1 + I*c*x^2] - (b^2*Log[1 - I*c*x^2]*Log[1 + I*c*x^2])/(
2*x) + (b^2*Log[1 + I*c*x^2]^2)/(4*x) + (-1)^(1/4)*b^2*Sqrt[c]*PolyLog[2, 1 - 2/(1 - (-1)^(1/4)*Sqrt[c]*x)] +
(-1)^(1/4)*b^2*Sqrt[c]*PolyLog[2, 1 - 2/(1 + (-1)^(1/4)*Sqrt[c]*x)] - ((-1)^(1/4)*b^2*Sqrt[c]*PolyLog[2, 1 - (
Sqrt[2]*((-1)^(1/4) + Sqrt[c]*x))/(1 + (-1)^(1/4)*Sqrt[c]*x)])/2 + (-1)^(3/4)*b^2*Sqrt[c]*PolyLog[2, 1 - 2/(1
- (-1)^(3/4)*Sqrt[c]*x)] + (-1)^(3/4)*b^2*Sqrt[c]*PolyLog[2, 1 - 2/(1 + (-1)^(3/4)*Sqrt[c]*x)] - ((-1)^(3/4)*b
^2*Sqrt[c]*PolyLog[2, 1 + (Sqrt[2]*((-1)^(3/4) + Sqrt[c]*x))/(1 + (-1)^(3/4)*Sqrt[c]*x)])/2 - ((-1)^(3/4)*b^2*
Sqrt[c]*PolyLog[2, 1 - ((1 + I)*(1 + (-1)^(1/4)*Sqrt[c]*x))/(1 + (-1)^(3/4)*Sqrt[c]*x)])/2 - ((-1)^(1/4)*b^2*S
qrt[c]*PolyLog[2, 1 - ((1 - I)*(1 + (-1)^(3/4)*Sqrt[c]*x))/(1 + (-1)^(1/4)*Sqrt[c]*x)])/2

Rule 12

Int[(a_)*(u_), x_Symbol] :> Dist[a, Int[u, x], x] /; FreeQ[a, x] &&  !MatchQ[u, (b_)*(v_) /; FreeQ[b, x]]

Rule 30

Int[(x_)^(m_.), x_Symbol] :> Simp[x^(m + 1)/(m + 1), x] /; FreeQ[m, x] && NeQ[m, -1]

Rule 209

Int[((a_) + (b_.)*(x_)^2)^(-1), x_Symbol] :> Simp[(1/(Rt[a, 2]*Rt[b, 2]))*ArcTan[Rt[b, 2]*(x/Rt[a, 2])], x] /;
FreeQ[{a, b}, x] && PosQ[a/b] && (GtQ[a, 0] || GtQ[b, 0])

Rule 211

Int[((a_) + (b_.)*(x_)^2)^(-1), x_Symbol] :> Simp[(Rt[a/b, 2]/a)*ArcTan[x/Rt[a/b, 2]], x] /; FreeQ[{a, b}, x]
&& PosQ[a/b]

Rule 212

Int[((a_) + (b_.)*(x_)^2)^(-1), x_Symbol] :> Simp[(1/(Rt[a, 2]*Rt[-b, 2]))*ArcTanh[Rt[-b, 2]*(x/Rt[a, 2])], x]
/; FreeQ[{a, b}, x] && NegQ[a/b] && (GtQ[a, 0] || LtQ[b, 0])

Rule 214

Int[((a_) + (b_.)*(x_)^2)^(-1), x_Symbol] :> Simp[(Rt[-a/b, 2]/a)*ArcTanh[x/Rt[-a/b, 2]], x] /; FreeQ[{a, b},
x] && NegQ[a/b]

Rule 2352

Int[Log[(c_.)*(x_)]/((d_) + (e_.)*(x_)), x_Symbol] :> Simp[(-e^(-1))*PolyLog[2, 1 - c*x], x] /; FreeQ[{c, d, e
}, x] && EqQ[e + c*d, 0]

Rule 2449

Int[Log[(c_.)/((d_) + (e_.)*(x_))]/((f_) + (g_.)*(x_)^2), x_Symbol] :> Dist[-e/g, Subst[Int[Log[2*d*x]/(1 - 2*
d*x), x], x, 1/(d + e*x)], x] /; FreeQ[{c, d, e, f, g}, x] && EqQ[c, 2*d] && EqQ[e^2*f + d^2*g, 0]

Rule 2497

Int[Log[u_]*(Pq_)^(m_.), x_Symbol] :> With[{C = FullSimplify[Pq^m*((1 - u)/D[u, x])]}, Simp[C*PolyLog[2, 1 - u
], x] /; FreeQ[C, x]] /; IntegerQ[m] && PolyQ[Pq, x] && RationalFunctionQ[u, x] && LeQ[RationalFunctionExponen
ts[u, x][[2]], Expon[Pq, x]]

Rule 2505

Int[((a_.) + Log[(c_.)*((d_) + (e_.)*(x_)^(n_))^(p_.)]*(b_.))*((f_.)*(x_))^(m_.), x_Symbol] :> Simp[(f*x)^(m +
1)*((a + b*Log[c*(d + e*x^n)^p])/(f*(m + 1))), x] - Dist[b*e*n*(p/(f*(m + 1))), Int[x^(n - 1)*((f*x)^(m + 1)/
(d + e*x^n)), x], x] /; FreeQ[{a, b, c, d, e, f, m, n, p}, x] && NeQ[m, -1]

Rule 2507

Int[((a_.) + Log[(c_.)*((d_) + (e_.)*(x_)^(n_))^(p_.)]*(b_.))^(q_)*((f_.)*(x_))^(m_.), x_Symbol] :> Simp[(f*x)
^(m + 1)*((a + b*Log[c*(d + e*x^n)^p])^q/(f*(m + 1))), x] - Dist[b*e*n*p*(q/(f^n*(m + 1))), Int[(f*x)^(m + n)*
((a + b*Log[c*(d + e*x^n)^p])^(q - 1)/(d + e*x^n)), x], x] /; FreeQ[{a, b, c, d, e, f, m, p}, x] && IGtQ[q, 1]
&& IntegerQ[n] && NeQ[m, -1]

Rule 2520

Int[((a_.) + Log[(c_.)*((d_) + (e_.)*(x_)^(n_))^(p_.)]*(b_.))/((f_) + (g_.)*(x_)^2), x_Symbol] :> With[{u = In
tHide[1/(f + g*x^2), x]}, Simp[u*(a + b*Log[c*(d + e*x^n)^p]), x] - Dist[b*e*n*p, Int[u*(x^(n - 1)/(d + e*x^n)
), x], x]] /; FreeQ[{a, b, c, d, e, f, g, n, p}, x] && IntegerQ[n]

Rule 2637

Int[Log[v_]*Log[w_]*(u_), x_Symbol] :> With[{z = IntHide[u, x]}, Dist[Log[v]*Log[w], z, x] + (-Int[SimplifyInt
egrand[z*Log[w]*(D[v, x]/v), x], x] - Int[SimplifyIntegrand[z*Log[v]*(D[w, x]/w), x], x]) /; InverseFunctionFr
eeQ[z, x]] /; InverseFunctionFreeQ[v, x] && InverseFunctionFreeQ[w, x]

Rule 4950

Int[((a_.) + ArcTan[(c_.)*(x_)^(n_)]*(b_.))^(p_)*(x_)^(m_.), x_Symbol] :> Int[ExpandIntegrand[x^m*(a + (I*b*Lo
g[1 - I*c*x^n])/2 - (I*b*Log[1 + I*c*x^n])/2)^p, x], x] /; FreeQ[{a, b, c}, x] && IGtQ[p, 1] && IGtQ[n, 0] &&
IntegerQ[m]

Rule 4964

Int[((a_.) + ArcTan[(c_.)*(x_)]*(b_.))^(p_.)/((d_) + (e_.)*(x_)), x_Symbol] :> Simp[(-(a + b*ArcTan[c*x])^p)*(
Log[2/(1 + e*(x/d))]/e), x] + Dist[b*c*(p/e), Int[(a + b*ArcTan[c*x])^(p - 1)*(Log[2/(1 + e*(x/d))]/(1 + c^2*x
^2)), x], x] /; FreeQ[{a, b, c, d, e}, x] && IGtQ[p, 0] && EqQ[c^2*d^2 + e^2, 0]

Rule 4966

Int[((a_.) + ArcTan[(c_.)*(x_)]*(b_.))/((d_) + (e_.)*(x_)), x_Symbol] :> Simp[(-(a + b*ArcTan[c*x]))*(Log[2/(1
- I*c*x)]/e), x] + (Dist[b*(c/e), Int[Log[2/(1 - I*c*x)]/(1 + c^2*x^2), x], x] - Dist[b*(c/e), Int[Log[2*c*((
d + e*x)/((c*d + I*e)*(1 - I*c*x)))]/(1 + c^2*x^2), x], x] + Simp[(a + b*ArcTan[c*x])*(Log[2*c*((d + e*x)/((c*
d + I*e)*(1 - I*c*x)))]/e), x]) /; FreeQ[{a, b, c, d, e}, x] && NeQ[c^2*d^2 + e^2, 0]

Rule 5040

Int[(((a_.) + ArcTan[(c_.)*(x_)]*(b_.))^(p_.)*(x_))/((d_) + (e_.)*(x_)^2), x_Symbol] :> Simp[(-I)*((a + b*ArcT
an[c*x])^(p + 1)/(b*e*(p + 1))), x] - Dist[1/(c*d), Int[(a + b*ArcTan[c*x])^p/(I - c*x), x], x] /; FreeQ[{a, b
, c, d, e}, x] && EqQ[e, c^2*d] && IGtQ[p, 0]

Rule 5048

Int[(((a_.) + ArcTan[(c_.)*(x_)]*(b_.))*(x_)^(m_.))/((d_) + (e_.)*(x_)^2), x_Symbol] :> Int[ExpandIntegrand[a
+ b*ArcTan[c*x], x^m/(d + e*x^2), x], x] /; FreeQ[{a, b, c, d, e}, x] && IntegerQ[m] &&  !(EqQ[m, 1] && NeQ[a,
0])

Rule 6055

Int[((a_.) + ArcTanh[(c_.)*(x_)]*(b_.))^(p_.)/((d_) + (e_.)*(x_)), x_Symbol] :> Simp[(-(a + b*ArcTanh[c*x])^p)
*(Log[2/(1 + e*(x/d))]/e), x] + Dist[b*c*(p/e), Int[(a + b*ArcTanh[c*x])^(p - 1)*(Log[2/(1 + e*(x/d))]/(1 - c^
2*x^2)), x], x] /; FreeQ[{a, b, c, d, e}, x] && IGtQ[p, 0] && EqQ[c^2*d^2 - e^2, 0]

Rule 6057

Int[((a_.) + ArcTanh[(c_.)*(x_)]*(b_.))/((d_) + (e_.)*(x_)), x_Symbol] :> Simp[(-(a + b*ArcTanh[c*x]))*(Log[2/
(1 + c*x)]/e), x] + (Dist[b*(c/e), Int[Log[2/(1 + c*x)]/(1 - c^2*x^2), x], x] - Dist[b*(c/e), Int[Log[2*c*((d
+ e*x)/((c*d + e)*(1 + c*x)))]/(1 - c^2*x^2), x], x] + Simp[(a + b*ArcTanh[c*x])*(Log[2*c*((d + e*x)/((c*d + e
)*(1 + c*x)))]/e), x]) /; FreeQ[{a, b, c, d, e}, x] && NeQ[c^2*d^2 - e^2, 0]

Rule 6131

Int[(((a_.) + ArcTanh[(c_.)*(x_)]*(b_.))^(p_.)*(x_))/((d_) + (e_.)*(x_)^2), x_Symbol] :> Simp[(a + b*ArcTanh[c
*x])^(p + 1)/(b*e*(p + 1)), x] + Dist[1/(c*d), Int[(a + b*ArcTanh[c*x])^p/(1 - c*x), x], x] /; FreeQ[{a, b, c,
d, e}, x] && EqQ[c^2*d + e, 0] && IGtQ[p, 0]

Rule 6139

Int[(((a_.) + ArcTanh[(c_.)*(x_)]*(b_.))*(x_)^(m_.))/((d_) + (e_.)*(x_)^2), x_Symbol] :> Int[ExpandIntegrand[a
+ b*ArcTanh[c*x], x^m/(d + e*x^2), x], x] /; FreeQ[{a, b, c, d, e}, x] && IntegerQ[m] &&  !(EqQ[m, 1] && NeQ[
a, 0])

Rule 6874

Int[u_, x_Symbol] :> With[{v = ExpandIntegrand[u, x]}, Int[v, x] /; SumQ[v]]

Rubi steps \begin{align*} \text {integral}& = \int \left (\frac {\left (2 a+i b \log \left (1-i c x^2\right )\right )^2}{4 x^2}+\frac {b \left (-2 i a+b \log \left (1-i c x^2\right )\right ) \log \left (1+i c x^2\right )}{2 x^2}-\frac {b^2 \log ^2\left (1+i c x^2\right )}{4 x^2}\right ) \, dx \\ & = \frac {1}{4} \int \frac {\left (2 a+i b \log \left (1-i c x^2\right )\right )^2}{x^2} \, dx+\frac {1}{2} b \int \frac {\left (-2 i a+b \log \left (1-i c x^2\right )\right ) \log \left (1+i c x^2\right )}{x^2} \, dx-\frac {1}{4} b^2 \int \frac {\log ^2\left (1+i c x^2\right )}{x^2} \, dx \\ & = -\frac {\left (2 a+i b \log \left (1-i c x^2\right )\right )^2}{4 x}+\frac {b^2 \log ^2\left (1+i c x^2\right )}{4 x}+\frac {1}{2} b \int \left (-\frac {2 i a \log \left (1+i c x^2\right )}{x^2}+\frac {b \log \left (1-i c x^2\right ) \log \left (1+i c x^2\right )}{x^2}\right ) \, dx+(b c) \int \frac {2 a+i b \log \left (1-i c x^2\right )}{1-i c x^2} \, dx-\left (i b^2 c\right ) \int \frac {\log \left (1+i c x^2\right )}{1+i c x^2} \, dx \\ & = -\sqrt [4]{-1} b \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \left (2 a+i b \log \left (1-i c x^2\right )\right )-\frac {\left (2 a+i b \log \left (1-i c x^2\right )\right )^2}{4 x}+(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1+i c x^2\right )+\frac {b^2 \log ^2\left (1+i c x^2\right )}{4 x}-(i a b) \int \frac {\log \left (1+i c x^2\right )}{x^2} \, dx+\frac {1}{2} b^2 \int \frac {\log \left (1-i c x^2\right ) \log \left (1+i c x^2\right )}{x^2} \, dx+\left (2 b^2 c^2\right ) \int \frac {\sqrt [4]{-1} x \arctan \left ((-1)^{3/4} \sqrt {c} x\right )}{\sqrt {c} \left (1-i c x^2\right )} \, dx+\left (2 b^2 c^2\right ) \int \frac {\sqrt [4]{-1} x \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )}{\sqrt {c} \left (1+i c x^2\right )} \, dx \\ & = -\sqrt [4]{-1} b \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \left (2 a+i b \log \left (1-i c x^2\right )\right )-\frac {\left (2 a+i b \log \left (1-i c x^2\right )\right )^2}{4 x}+\frac {i a b \log \left (1+i c x^2\right )}{x}+(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1+i c x^2\right )-\frac {b^2 \log \left (1-i c x^2\right ) \log \left (1+i c x^2\right )}{2 x}+\frac {b^2 \log ^2\left (1+i c x^2\right )}{4 x}-\frac {1}{2} b^2 \int \frac {2 c \log \left (1-i c x^2\right )}{i-c x^2} \, dx-\frac {1}{2} b^2 \int \frac {2 c \log \left (1+i c x^2\right )}{-i-c x^2} \, dx+(2 a b c) \int \frac {1}{1+i c x^2} \, dx+\left (2 \sqrt [4]{-1} b^2 c^{3/2}\right ) \int \frac {x \arctan \left ((-1)^{3/4} \sqrt {c} x\right )}{1-i c x^2} \, dx+\left (2 \sqrt [4]{-1} b^2 c^{3/2}\right ) \int \frac {x \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )}{1+i c x^2} \, dx \\ & = \sqrt [4]{-1} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right )^2-2 \sqrt [4]{-1} a b \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )-(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )^2-\sqrt [4]{-1} b \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \left (2 a+i b \log \left (1-i c x^2\right )\right )-\frac {\left (2 a+i b \log \left (1-i c x^2\right )\right )^2}{4 x}+\frac {i a b \log \left (1+i c x^2\right )}{x}+(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1+i c x^2\right )-\frac {b^2 \log \left (1-i c x^2\right ) \log \left (1+i c x^2\right )}{2 x}+\frac {b^2 \log ^2\left (1+i c x^2\right )}{4 x}+\left (2 i b^2 c\right ) \int \frac {\arctan \left ((-1)^{3/4} \sqrt {c} x\right )}{i-(-1)^{3/4} \sqrt {c} x} \, dx-\left (2 i b^2 c\right ) \int \frac {\text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )}{1-(-1)^{3/4} \sqrt {c} x} \, dx-\left (b^2 c\right ) \int \frac {\log \left (1-i c x^2\right )}{i-c x^2} \, dx-\left (b^2 c\right ) \int \frac {\log \left (1+i c x^2\right )}{-i-c x^2} \, dx \\ & = \sqrt [4]{-1} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right )^2-2 \sqrt [4]{-1} a b \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )-(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )^2-2 (-1)^{3/4} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{1-\sqrt [4]{-1} \sqrt {c} x}\right )+2 (-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{1-(-1)^{3/4} \sqrt {c} x}\right )-(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1-i c x^2\right )-\sqrt [4]{-1} b \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \left (2 a+i b \log \left (1-i c x^2\right )\right )-\frac {\left (2 a+i b \log \left (1-i c x^2\right )\right )^2}{4 x}+\frac {i a b \log \left (1+i c x^2\right )}{x}+(-1)^{3/4} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1+i c x^2\right )+(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1+i c x^2\right )-\frac {b^2 \log \left (1-i c x^2\right ) \log \left (1+i c x^2\right )}{2 x}+\frac {b^2 \log ^2\left (1+i c x^2\right )}{4 x}-\left (2 i b^2 c\right ) \int \frac {\log \left (\frac {2}{1-\sqrt [4]{-1} \sqrt {c} x}\right )}{1-i c x^2} \, dx+\left (2 i b^2 c\right ) \int \frac {\log \left (\frac {2}{1-(-1)^{3/4} \sqrt {c} x}\right )}{1+i c x^2} \, dx-\left (2 i b^2 c^2\right ) \int \frac {(-1)^{3/4} x \arctan \left ((-1)^{3/4} \sqrt {c} x\right )}{\sqrt {c} \left (1+i c x^2\right )} \, dx-\left (2 i b^2 c^2\right ) \int \frac {(-1)^{3/4} x \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )}{\sqrt {c} \left (1-i c x^2\right )} \, dx \\ & = \sqrt [4]{-1} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right )^2-2 \sqrt [4]{-1} a b \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )-(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )^2-2 (-1)^{3/4} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{1-\sqrt [4]{-1} \sqrt {c} x}\right )+2 (-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{1-(-1)^{3/4} \sqrt {c} x}\right )-(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1-i c x^2\right )-\sqrt [4]{-1} b \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \left (2 a+i b \log \left (1-i c x^2\right )\right )-\frac {\left (2 a+i b \log \left (1-i c x^2\right )\right )^2}{4 x}+\frac {i a b \log \left (1+i c x^2\right )}{x}+(-1)^{3/4} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1+i c x^2\right )+(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1+i c x^2\right )-\frac {b^2 \log \left (1-i c x^2\right ) \log \left (1+i c x^2\right )}{2 x}+\frac {b^2 \log ^2\left (1+i c x^2\right )}{4 x}+\left (2 \sqrt [4]{-1} b^2 \sqrt {c}\right ) \text {Subst}\left (\int \frac {\log (2 x)}{1-2 x} \, dx,x,\frac {1}{1-\sqrt [4]{-1} \sqrt {c} x}\right )+\left (2 (-1)^{3/4} b^2 \sqrt {c}\right ) \text {Subst}\left (\int \frac {\log (2 x)}{1-2 x} \, dx,x,\frac {1}{1-(-1)^{3/4} \sqrt {c} x}\right )+\left (2 \sqrt [4]{-1} b^2 c^{3/2}\right ) \int \frac {x \arctan \left ((-1)^{3/4} \sqrt {c} x\right )}{1+i c x^2} \, dx+\left (2 \sqrt [4]{-1} b^2 c^{3/2}\right ) \int \frac {x \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )}{1-i c x^2} \, dx \\ & = \sqrt [4]{-1} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right )^2-2 \sqrt [4]{-1} a b \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )-(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )^2-2 (-1)^{3/4} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{1-\sqrt [4]{-1} \sqrt {c} x}\right )+2 (-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{1-(-1)^{3/4} \sqrt {c} x}\right )-(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1-i c x^2\right )-\sqrt [4]{-1} b \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \left (2 a+i b \log \left (1-i c x^2\right )\right )-\frac {\left (2 a+i b \log \left (1-i c x^2\right )\right )^2}{4 x}+\frac {i a b \log \left (1+i c x^2\right )}{x}+(-1)^{3/4} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1+i c x^2\right )+(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1+i c x^2\right )-\frac {b^2 \log \left (1-i c x^2\right ) \log \left (1+i c x^2\right )}{2 x}+\frac {b^2 \log ^2\left (1+i c x^2\right )}{4 x}+\sqrt [4]{-1} b^2 \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {2}{1-\sqrt [4]{-1} \sqrt {c} x}\right )+(-1)^{3/4} b^2 \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {2}{1-(-1)^{3/4} \sqrt {c} x}\right )+\left (2 \sqrt [4]{-1} b^2 c^{3/2}\right ) \int \left (\frac {i \arctan \left ((-1)^{3/4} \sqrt {c} x\right )}{2 \sqrt {c} \left (\sqrt [4]{-1}-\sqrt {c} x\right )}-\frac {i \arctan \left ((-1)^{3/4} \sqrt {c} x\right )}{2 \sqrt {c} \left (\sqrt [4]{-1}+\sqrt {c} x\right )}\right ) \, dx+\left (2 \sqrt [4]{-1} b^2 c^{3/2}\right ) \int \left (-\frac {i \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )}{2 \sqrt {c} \left (-(-1)^{3/4}-\sqrt {c} x\right )}+\frac {i \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )}{2 \sqrt {c} \left (-(-1)^{3/4}+\sqrt {c} x\right )}\right ) \, dx \\ & = \sqrt [4]{-1} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right )^2-2 \sqrt [4]{-1} a b \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )-(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )^2-2 (-1)^{3/4} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{1-\sqrt [4]{-1} \sqrt {c} x}\right )+2 (-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{1-(-1)^{3/4} \sqrt {c} x}\right )-(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1-i c x^2\right )-\sqrt [4]{-1} b \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \left (2 a+i b \log \left (1-i c x^2\right )\right )-\frac {\left (2 a+i b \log \left (1-i c x^2\right )\right )^2}{4 x}+\frac {i a b \log \left (1+i c x^2\right )}{x}+(-1)^{3/4} b^2 \sqrt {c} \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1+i c x^2\right )+(-1)^{3/4} b^2 \sqrt {c} \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1+i c x^2\right )-\frac {b^2 \log \left (1-i c x^2\right ) \log \left (1+i c x^2\right )}{2 x}+\frac {b^2 \log ^2\left (1+i c x^2\right )}{4 x}+\sqrt [4]{-1} b^2 \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {2}{1-\sqrt [4]{-1} \sqrt {c} x}\right )+(-1)^{3/4} b^2 \sqrt {c} \operatorname {PolyLog}\left (2,1-\frac {2}{1-(-1)^{3/4} \sqrt {c} x}\right )+\left ((-1)^{3/4} b^2 c\right ) \int \frac {\arctan \left ((-1)^{3/4} \sqrt {c} x\right )}{\sqrt [4]{-1}-\sqrt {c} x} \, dx-\left ((-1)^{3/4} b^2 c\right ) \int \frac {\arctan \left ((-1)^{3/4} \sqrt {c} x\right )}{\sqrt [4]{-1}+\sqrt {c} x} \, dx-\left ((-1)^{3/4} b^2 c\right ) \int \frac {\text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )}{-(-1)^{3/4}-\sqrt {c} x} \, dx+\left ((-1)^{3/4} b^2 c\right ) \int \frac {\text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )}{-(-1)^{3/4}+\sqrt {c} x} \, dx \\ & = \text {Too large to display} \\ \end{align*}

Mathematica [B] (warning: unable to verify)

Both result and optimal contain complex but leaf count is larger than twice the leaf count of optimal. \(4697\) vs. \(2(1164)=2328\).

Time = 35.92 (sec) , antiderivative size = 4697, normalized size of antiderivative = 4.04 \[ \int \frac {\left (a+b \arctan \left (c x^2\right )\right )^2}{x^2} \, dx=\text {Result too large to show} \]

[In]

Integrate[(a + b*ArcTan[c*x^2])^2/x^2,x]

[Out]

-(a^2/x) + (a*b*(c*x^2)^(3/2)*((-2*ArcTan[c*x^2])/Sqrt[c*x^2] + Sqrt[2]*(ArcTan[(-1 + c*x^2)/(Sqrt[2]*Sqrt[c*x
^2])] + ArcTanh[(Sqrt[2]*Sqrt[c*x^2])/(1 + c*x^2)])))/(c*x^3) + (b^2*(c*x^2)^(3/2)*((-2*ArcTan[c*x^2]^2)/Sqrt[
c*x^2] + 4*((ArcTan[c*x^2]*(-2*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] + 2*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]] - Log[1 + c
*x^2 - Sqrt[2]*Sqrt[c*x^2]] + Log[1 + c*x^2 + Sqrt[2]*Sqrt[c*x^2]]))/(2*Sqrt[2]) - ((ArcTan[1 - Sqrt[2]*Sqrt[c
*x^2]] + ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]])*Log[1 + c*x^2 - Sqrt[2]*Sqrt[c*x^2]] - (ArcTan[1 - Sqrt[2]*Sqrt[c*x^
2]] + ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]])*Log[1 + c*x^2 + Sqrt[2]*Sqrt[c*x^2]] - (Sqrt[c*x^2]*(1 + (1 - Sqrt[2]*S
qrt[c*x^2])^2)^(3/2)*(2*(-5*ArcTan[2 + I]*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] + 4*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]^
2 + ((1 + 2*I)*Sqrt[1 + I]*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]^2)/E^(I*ArcTan[2 + I]) + ((1 - 2*I)*Sqrt[1 - I]*Arc
Tan[1 - Sqrt[2]*Sqrt[c*x^2]]^2)/E^ArcTanh[1 + 2*I] - (5*I)*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]*ArcTanh[1 + 2*I] +
(5*I)*(-ArcTan[2 + I] + ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]])*Log[1 - E^((2*I)*(-ArcTan[2 + I] + ArcTan[1 - Sqrt[2]
*Sqrt[c*x^2]]))] + 5*((-I)*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] + ArcTanh[1 + 2*I])*Log[1 - E^((2*I)*ArcTan[1 - Sqr
t[2]*Sqrt[c*x^2]] - 2*ArcTanh[1 + 2*I])] + (5*I)*ArcTan[2 + I]*Log[-Sin[ArcTan[2 + I] - ArcTan[1 - Sqrt[2]*Sqr
t[c*x^2]]]] - 5*ArcTanh[1 + 2*I]*Log[Sin[ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] + I*ArcTanh[1 + 2*I]]]) + 5*PolyLog[2
, E^((2*I)*(-ArcTan[2 + I] + ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]))] - 5*PolyLog[2, E^((2*I)*ArcTan[1 - Sqrt[2]*Sqr
t[c*x^2]] - 2*ArcTanh[1 + 2*I])])*(3 + 2*Cos[2*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]] - 2*Sin[2*ArcTan[1 - Sqrt[2]*S
qrt[c*x^2]]]))/(20*Sqrt[2]*(-1 - c*x^2 + Sqrt[2]*Sqrt[c*x^2])*(1 + c*x^2 + Sqrt[2]*Sqrt[c*x^2])*(1/Sqrt[1 + (1
- Sqrt[2]*Sqrt[c*x^2])^2] - (1 - Sqrt[2]*Sqrt[c*x^2])/Sqrt[1 + (1 - Sqrt[2]*Sqrt[c*x^2])^2])) - ((1/40 + I/40
)*c*x^2*(1 + (1 - Sqrt[2]*Sqrt[c*x^2])^2)*((5 + 5*I)*Pi*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] + 10*ArcTan[2 + I]*Arc
Tan[1 - Sqrt[2]*Sqrt[c*x^2]] + (4 - 4*I)*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]^2 - ((2 + 4*I)*Sqrt[1 + I]*ArcTan[1 -
Sqrt[2]*Sqrt[c*x^2]]^2)/E^(I*ArcTan[2 + I]) + ((4 + 2*I)*Sqrt[1 - I]*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]^2)/E^Arc
Tanh[1 + 2*I] + 10*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]*ArcTanh[1 + 2*I] + (5 - 5*I)*Pi*Log[1 + E^((-2*I)*ArcTan[1
- Sqrt[2]*Sqrt[c*x^2]])] + (10*I)*ArcTan[2 + I]*Log[1 - E^((2*I)*(-ArcTan[2 + I] + ArcTan[1 - Sqrt[2]*Sqrt[c*x
^2]]))] - (10*I)*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]*Log[1 - E^((2*I)*(-ArcTan[2 + I] + ArcTan[1 - Sqrt[2]*Sqrt[c*
x^2]]))] + 10*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]*Log[1 - E^((2*I)*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] - 2*ArcTanh[1 +
2*I])] + (10*I)*ArcTanh[1 + 2*I]*Log[1 - E^((2*I)*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] - 2*ArcTanh[1 + 2*I])] - (5
- 5*I)*Pi*Log[1/Sqrt[1 + (1 - Sqrt[2]*Sqrt[c*x^2])^2]] - (10*I)*ArcTan[2 + I]*Log[-Sin[ArcTan[2 + I] - ArcTan
[1 - Sqrt[2]*Sqrt[c*x^2]]]] - (10*I)*ArcTanh[1 + 2*I]*Log[Sin[ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] + I*ArcTanh[1 +
2*I]]] - 5*PolyLog[2, E^((2*I)*(-ArcTan[2 + I] + ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]))] - (5*I)*PolyLog[2, E^((2*I
)*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] - 2*ArcTanh[1 + 2*I])])*(3 + 2*Cos[2*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]] - 2*Si
n[2*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]]))/((-1 - c*x^2 + Sqrt[2]*Sqrt[c*x^2])*(1 + c*x^2 + Sqrt[2]*Sqrt[c*x^2])*(
1/Sqrt[1 + (1 - Sqrt[2]*Sqrt[c*x^2])^2] - (1 - Sqrt[2]*Sqrt[c*x^2])/Sqrt[1 + (1 - Sqrt[2]*Sqrt[c*x^2])^2])^2)
- ((1/80 + I/80)*(2 + 2*c*x^2 - 2*Sqrt[2]*Sqrt[c*x^2])^2*((-5 - 5*I)*Pi*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] - (10*
I)*ArcTan[2 + I]*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] + (8 - 8*I)*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]^2 - ((4 - 2*I)*Sq
rt[1 + I]*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]^2)/E^(I*ArcTan[2 + I]) - ((2 - 4*I)*Sqrt[1 - I]*ArcTan[1 - Sqrt[2]*S
qrt[c*x^2]]^2)/E^ArcTanh[1 + 2*I] + (10*I)*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]*ArcTanh[1 + 2*I] - (5 - 5*I)*Pi*Log
[1 + E^((-2*I)*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]])] + 10*ArcTan[2 + I]*Log[1 - E^((2*I)*(-ArcTan[2 + I] + ArcTan[
1 - Sqrt[2]*Sqrt[c*x^2]]))] - 10*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]*Log[1 - E^((2*I)*(-ArcTan[2 + I] + ArcTan[1 -
Sqrt[2]*Sqrt[c*x^2]]))] + (10*I)*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]*Log[1 - E^((2*I)*ArcTan[1 - Sqrt[2]*Sqrt[c*x
^2]] - 2*ArcTanh[1 + 2*I])] - 10*ArcTanh[1 + 2*I]*Log[1 - E^((2*I)*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] - 2*ArcTanh
[1 + 2*I])] + (5 - 5*I)*Pi*Log[1/Sqrt[2 + 2*c*x^2 - 2*Sqrt[2]*Sqrt[c*x^2]]] - 10*ArcTan[2 + I]*Log[-Sin[ArcTan
[2 + I] - ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]]] + 10*ArcTanh[1 + 2*I]*Log[Sin[ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] + I*
ArcTanh[1 + 2*I]]] + (5*I)*PolyLog[2, E^((2*I)*(-ArcTan[2 + I] + ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]))] + 5*PolyLo
g[2, E^((2*I)*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] - 2*ArcTanh[1 + 2*I])])*(3 + 2*Cos[2*ArcTan[1 - Sqrt[2]*Sqrt[c*x
^2]]] - 2*Sin[2*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]]))/(1 + c^2*x^4) - (Sqrt[c*x^2]*(1 + (1 + Sqrt[2]*Sqrt[c*x^2])
^2)^(3/2)*(2*(-5*ArcTan[2 + I]*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]] + 4*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]^2 + ((1 + 2
*I)*Sqrt[1 + I]*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]^2)/E^(I*ArcTan[2 + I]) + ((1 - 2*I)*Sqrt[1 - I]*ArcTan[1 + Sqr
t[2]*Sqrt[c*x^2]]^2)/E^ArcTanh[1 + 2*I] - (5*I)*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]*ArcTanh[1 + 2*I] + (5*I)*(-Arc
Tan[2 + I] + ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]])*Log[1 - E^((2*I)*(-ArcTan[2 + I] + ArcTan[1 + Sqrt[2]*Sqrt[c*x^2
]]))] + 5*((-I)*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]] + ArcTanh[1 + 2*I])*Log[1 - E^((2*I)*ArcTan[1 + Sqrt[2]*Sqrt[c
*x^2]] - 2*ArcTanh[1 + 2*I])] + (5*I)*ArcTan[2 + I]*Log[-Sin[ArcTan[2 + I] - ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]]]
- 5*ArcTanh[1 + 2*I]*Log[Sin[ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]] + I*ArcTanh[1 + 2*I]]]) + 5*PolyLog[2, E^((2*I)*
(-ArcTan[2 + I] + ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]))] - 5*PolyLog[2, E^((2*I)*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]] -
2*ArcTanh[1 + 2*I])])*(3 + 2*Cos[2*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]] - 2*Sin[2*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]
]))/(20*Sqrt[2]*(-1 - c*x^2 + Sqrt[2]*Sqrt[c*x^2])*(1 + c*x^2 + Sqrt[2]*Sqrt[c*x^2])*(1/Sqrt[1 + (1 + Sqrt[2]*
Sqrt[c*x^2])^2] - (1 + Sqrt[2]*Sqrt[c*x^2])/Sqrt[1 + (1 + Sqrt[2]*Sqrt[c*x^2])^2])) + ((1/40 + I/40)*c*x^2*(1
+ (1 + Sqrt[2]*Sqrt[c*x^2])^2)*((5 + 5*I)*Pi*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]] + 10*ArcTan[2 + I]*ArcTan[1 + Sqr
t[2]*Sqrt[c*x^2]] + (4 - 4*I)*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]^2 - ((2 + 4*I)*Sqrt[1 + I]*ArcTan[1 + Sqrt[2]*Sq
rt[c*x^2]]^2)/E^(I*ArcTan[2 + I]) + ((4 + 2*I)*Sqrt[1 - I]*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]^2)/E^ArcTanh[1 + 2*
I] + 10*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]*ArcTanh[1 + 2*I] + (5 - 5*I)*Pi*Log[1 + E^((-2*I)*ArcTan[1 + Sqrt[2]*S
qrt[c*x^2]])] + (10*I)*ArcTan[2 + I]*Log[1 - E^((2*I)*(-ArcTan[2 + I] + ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]))] - (
10*I)*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]*Log[1 - E^((2*I)*(-ArcTan[2 + I] + ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]))] +
10*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]*Log[1 - E^((2*I)*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]] - 2*ArcTanh[1 + 2*I])] + (
10*I)*ArcTanh[1 + 2*I]*Log[1 - E^((2*I)*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]] - 2*ArcTanh[1 + 2*I])] - (5 - 5*I)*Pi*
Log[1/Sqrt[1 + (1 + Sqrt[2]*Sqrt[c*x^2])^2]] - (10*I)*ArcTan[2 + I]*Log[-Sin[ArcTan[2 + I] - ArcTan[1 + Sqrt[2
]*Sqrt[c*x^2]]]] - (10*I)*ArcTanh[1 + 2*I]*Log[Sin[ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]] + I*ArcTanh[1 + 2*I]]] - 5*
PolyLog[2, E^((2*I)*(-ArcTan[2 + I] + ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]))] - (5*I)*PolyLog[2, E^((2*I)*ArcTan[1
+ Sqrt[2]*Sqrt[c*x^2]] - 2*ArcTanh[1 + 2*I])])*(3 + 2*Cos[2*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]] - 2*Sin[2*ArcTan[
1 + Sqrt[2]*Sqrt[c*x^2]]]))/((-1 - c*x^2 + Sqrt[2]*Sqrt[c*x^2])*(1 + c*x^2 + Sqrt[2]*Sqrt[c*x^2])*(1/Sqrt[1 +
(1 + Sqrt[2]*Sqrt[c*x^2])^2] - (1 + Sqrt[2]*Sqrt[c*x^2])/Sqrt[1 + (1 + Sqrt[2]*Sqrt[c*x^2])^2])^2) - ((1/80 +
I/80)*(1 + (1 + Sqrt[2]*Sqrt[c*x^2])^2)^2*((-5 - 5*I)*Pi*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]] - (10*I)*ArcTan[2 + I
]*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]] + (8 - 8*I)*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]^2 - ((4 - 2*I)*Sqrt[1 + I]*ArcTa
n[1 + Sqrt[2]*Sqrt[c*x^2]]^2)/E^(I*ArcTan[2 + I]) - ((2 - 4*I)*Sqrt[1 - I]*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]^2)/
E^ArcTanh[1 + 2*I] + (10*I)*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]*ArcTanh[1 + 2*I] - (5 - 5*I)*Pi*Log[1 + E^((-2*I)*
ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]])] + 10*ArcTan[2 + I]*Log[1 - E^((2*I)*(-ArcTan[2 + I] + ArcTan[1 + Sqrt[2]*Sqr
t[c*x^2]]))] - 10*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]*Log[1 - E^((2*I)*(-ArcTan[2 + I] + ArcTan[1 + Sqrt[2]*Sqrt[c
*x^2]]))] + (10*I)*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]*Log[1 - E^((2*I)*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]] - 2*ArcTan
h[1 + 2*I])] - 10*ArcTanh[1 + 2*I]*Log[1 - E^((2*I)*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]] - 2*ArcTanh[1 + 2*I])] + (
5 - 5*I)*Pi*Log[1/Sqrt[1 + (1 + Sqrt[2]*Sqrt[c*x^2])^2]] - 10*ArcTan[2 + I]*Log[-Sin[ArcTan[2 + I] - ArcTan[1
+ Sqrt[2]*Sqrt[c*x^2]]]] + 10*ArcTanh[1 + 2*I]*Log[Sin[ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]] + I*ArcTanh[1 + 2*I]]]
+ (5*I)*PolyLog[2, E^((2*I)*(-ArcTan[2 + I] + ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]))] + 5*PolyLog[2, E^((2*I)*ArcTa
n[1 + Sqrt[2]*Sqrt[c*x^2]] - 2*ArcTanh[1 + 2*I])])*(3 + 2*Cos[2*ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]]] - 2*Sin[2*Arc
Tan[1 + Sqrt[2]*Sqrt[c*x^2]]]))/((-1 - c*x^2 + Sqrt[2]*Sqrt[c*x^2])*(1 + c*x^2 + Sqrt[2]*Sqrt[c*x^2])))/(2*Sqr
t[2]))))/(2*c*x^3)

Maple [F]

\[\int \frac {{\left (a +b \arctan \left (c \,x^{2}\right )\right )}^{2}}{x^{2}}d x\]

[In]

int((a+b*arctan(c*x^2))^2/x^2,x)

[Out]

int((a+b*arctan(c*x^2))^2/x^2,x)

Fricas [F]

\[ \int \frac {\left (a+b \arctan \left (c x^2\right )\right )^2}{x^2} \, dx=\int { \frac {{\left (b \arctan \left (c x^{2}\right ) + a\right )}^{2}}{x^{2}} \,d x } \]

[In]

integrate((a+b*arctan(c*x^2))^2/x^2,x, algorithm="fricas")

[Out]

integral((b^2*arctan(c*x^2)^2 + 2*a*b*arctan(c*x^2) + a^2)/x^2, x)

Sympy [F]

\[ \int \frac {\left (a+b \arctan \left (c x^2\right )\right )^2}{x^2} \, dx=\int \frac {\left (a + b \operatorname {atan}{\left (c x^{2} \right )}\right )^{2}}{x^{2}}\, dx \]

[In]

integrate((a+b*atan(c*x**2))**2/x**2,x)

[Out]

Integral((a + b*atan(c*x**2))**2/x**2, x)

Maxima [F]

\[ \int \frac {\left (a+b \arctan \left (c x^2\right )\right )^2}{x^2} \, dx=\int { \frac {{\left (b \arctan \left (c x^{2}\right ) + a\right )}^{2}}{x^{2}} \,d x } \]

[In]

integrate((a+b*arctan(c*x^2))^2/x^2,x, algorithm="maxima")

[Out]

1/2*(c*(2*sqrt(2)*arctan(1/2*sqrt(2)*(2*c*x + sqrt(2)*sqrt(c))/sqrt(c))/sqrt(c) + 2*sqrt(2)*arctan(1/2*sqrt(2)
*(2*c*x - sqrt(2)*sqrt(c))/sqrt(c))/sqrt(c) + sqrt(2)*log(c*x^2 + sqrt(2)*sqrt(c)*x + 1)/sqrt(c) - sqrt(2)*log
(c*x^2 - sqrt(2)*sqrt(c)*x + 1)/sqrt(c)) - 4*arctan(c*x^2)/x)*a*b - 1/16*(4*arctan(c*x^2)^2 - 16*x*integrate(-
1/16*(8*c^2*x^4*log(c^2*x^4 + 1) - 16*c*x^2*arctan(c*x^2) - 12*(c^2*x^4 + 1)*arctan(c*x^2)^2 - (c^2*x^4 + 1)*l
og(c^2*x^4 + 1)^2)/(c^2*x^6 + x^2), x) - log(c^2*x^4 + 1)^2)*b^2/x - a^2/x

Giac [F]

\[ \int \frac {\left (a+b \arctan \left (c x^2\right )\right )^2}{x^2} \, dx=\int { \frac {{\left (b \arctan \left (c x^{2}\right ) + a\right )}^{2}}{x^{2}} \,d x } \]

[In]

integrate((a+b*arctan(c*x^2))^2/x^2,x, algorithm="giac")

[Out]

integrate((b*arctan(c*x^2) + a)^2/x^2, x)

Mupad [F(-1)]

Timed out. \[ \int \frac {\left (a+b \arctan \left (c x^2\right )\right )^2}{x^2} \, dx=\int \frac {{\left (a+b\,\mathrm {atan}\left (c\,x^2\right )\right )}^2}{x^2} \,d x \]

[In]

int((a + b*atan(c*x^2))^2/x^2,x)

[Out]

int((a + b*atan(c*x^2))^2/x^2, x)